Dim Shell, fullPath, regValue,valueType  
Set Shell = CreateObject("WScript.Shell")
fullPath = "HKEY_CURRENT_USER\Software\MyApp"	
valueName="PADS_Command"
valueType = "REG_SZ"
Shell.RegWrite fullPath & "\", "", "REG_SZ"
Shell.RegWrite fullPath & "\" & valueName, "", valueType

	